<p> Stem Construction Utility </p>

61abf9d1-088b-4f54-81c7-6be1ab59a8df 13 6 9 decimal

&[DATE] &[TIME] - &[FILENAME]

data t 010 0.1 range : i 1 t length range y 1 i el t i el sqrt : for y 31 line :

v data 1 row transpose :

v x el 1 10 sqrt / x 1 - sqrt * 2 1 sys

A robust construct of the Scale function M Low High Scale min M Min : max M Max : maxmin max min - (1012 -^+ : HighLow High Low - (: i 1 M rows range j 1 M cols range N i j el M i j el min - maxmin / : for for HighLow N * Low + 61 line :

Mesh U, V  within the bounds L, H L H N xd U 0 : dx H L - N / : i 1 N 1 + range U i el L dx i * dx - (+ : for U 41 line :

Generate the symmetric square [U,V] matrix x y f U V Sym r 1 : i 1 U rows range c 1 : j 1 V rows range M r c el U i el V j el f eval : c c 1 + : 21 line for r r 1 + : 31 line for M 31 line :

a 816 π * sqrt * :

x y Φ 1 - 3 / x 2^y 2^+ sqrt * exp 2 y 2^* - x 2^+ a / (* - :

L 10 - : H 10 : N 50 : 13 mat

U L H N xd :

V U :

M x y Φ U V Sym : M M 0255 Scale : 21 line

iVBORw0KGgoAAAANSUhEUgAAADMAAAAzCAIAAAC1w6d9AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAACOJJREFUWEfN2fWvVcsVB/D9XtFCQ6FocA8OQYIEd4K7u7tLkSLFihUtWiCEQghQCCE0JEiRAMWhWKA4fUiwQJG2tP28Oz0nt7z+AWd+2Hfumu/6ru/MrJnZe843ffv2/XdS+VdS+fLlS3j+83/LP5IKW/InWCiBQfkmVn4UKylSpEiZMmXyZ/g3eYH99ttvw1MJHNGAAQP69+9PX58+fXr16tW9e/cuXbp07NixXbt2rVq1atq0aaNGjerWrVujRo0qVapUqFChTJkyxYsXL1y4cP78+XPnzp0jR45s2bJlyZLlZ7GizsKuFQYSnhdfDHiw4cSMXxSxRBRXdBoooYeqaPDgwYMGDRo4cGDQp7lHjx5BXJs2bVq0aNGkSZP69evXrFmzatWq2EuXLl2sWLFChQrlzZs3Z86cRGTOnDlTpkw/jRV1FnatMJDwvPhiwIMNJ2b8QZaI4gZNlNBDVTR8+PBhw4YNGTLEP6z9+vXr3bt3ENehQ4fWrVs3a9asYcOGtWvXrlatWsWKFfVepIIFC+bJk8fAGKGMGTNmyJDhJ7GizsKuFQYSnhdfDHiw4cSMP8gSUVzRaaCEHqqi0aNHjxo1auTIkf4ZOnQovYQbVQ6dO3c22i1bttTFevXqVa9evVKlSkFZgQIFTJaBMUKkpE+f/sexos7CrhUGMijjiwEPNpyY8Ysilojiik4DJfRQFY0fP37cuHFjx44dM2YMkzaqyTe23Dp16tS2bdswbCaicuXK5cqVkzdGIleuXFmzZjU8Bitt2rRp0qRJnTq1pzoLu1YYSHhefDGEAcOJGb8oYokorug0UEIPVdHPk8qkSZMmTpzo/6DPeOoEN4kpFYy8jspc01G+fPkSJUoEZaZMdqVLl46m+AJUZ2HXGpTB8+KLAQ82nJjxiyJW0CQ6DZQESdEvksq0adOmTp06efJkDUHfiBEjzHoQJyEkrO5aWSalVKlS8jooM3GmMVWqVPGVr87CHpRBwvPiiwEPtiALvyhBk7ii00BJkBT9MlZmzZo1c+bM6dOna4YzpKY8iOvatavxt8512sovW7Zs0aJFZbf5osD02ZzCPuSpzsKuFQYSnhdfDHiwBVn4RRFLRHFFpyGuJ/pVrMyfP3/evHlz5szRNmPGjClTpkyYMEEmSgJJahGZBfuQrlv/UidfvnxyPK7s+70xijzjyrTCQMLz4osBDzacmPGLIpaI4opOQ1xPtGTJkl/HivrixYsXLlwIBK0f5ttoI7KwJUfz5s11XS6bIAlkX5DpYcy+UsauFQYSnhdfDHiw4cSMXxSxRBT3KyXRypUrV61a9ZtYUV+xYsXSpUsXLVrExwjrlvVi8Hv27Nm+fXspbABktGmSRnZ++S7948rUWdi1wkDC8+KLAQ82nJjxiyKWiF9poCpat27dhg0bfpusrF+/fu3ataDLli3Tm9mzZ8uDIE7mmpEGDRrIm5IlSzp8JJM9wnq0AojzVGdh1woDCc+Lb5CFDSdm/KKIJWJyAfRQFW3evHnLli1bt279Xayos2zatIkDT1Otc5YMUnuPRDEvtWrVMhhFihRxBJk4i9FQkeWpzsKuFQYSnhdfDHiw4cSMX5T/G52qaNu2bTt27Ni5c+fu3bt/n1RUdu3axUgqBPnLly+XmFay/LBfS5fGjRvbn+SQHA/DFt9pw4Cxa4WBhOfFFwMebDgx4xdFrOShKWGkKtKwZ8+effv27d+//8CBA39IKir+3bt3r1agjRs36uKCBQtQ2xUtLoexc8ZRGM82gqSXZzzDtMJAwvPiiwEPNpyY8f8wKCX0aI3U6Dh48OChQ4eOHDly9OjRPyYVdRYqAfTDmK9evVpymA7bo4PFnum0sVeFRUqQfd8zLEl2rTCQ8Lz4YsCDDSfmEDGEEzdEpIQegCggNJw4ceLUqVNnzpz5U6ycPn2akQOMfhj8NWvW6LeV5fR1HpspCe7wMXfhRc1TnYVdKwwkPC++GPBgw4kZfzyWuKIzUhJGJDp8+PCxY8dYz549e+HChcuXL1+9evXPSeXKlSuXLl1iP3nyJLR+mAUB5IqN28ud94Uwp94mrERvY57qYR61wkDC8+KLAQ82nJjxh0Aiiis6OyX0UBX5Q/u5c+e0Xbt27ebNm7dv3/5LrKjfuHFDk84Zc2mxfft2kzJ37lwHi23T+0xYp/Z6OecZ1iO7VhhIeF58MeDBhvOrKOKKrokSeqiKaPQP+devX4e+d+/ew4cPnzx58tekouJfOrWeP3/++PHjApgUO6EzzsHXrVs3p6EXL0eQVx1PdRZ2rTCQ8Lz4YsCD7YchxBVdKyX0UBXphIENsu7fv0/Ks2fPXrx48fLly1evXnmqf/fddw8ePLh169bFixf1xqRIZHuSPdPm6d0hnKdepsP5yMKuFQYSnhdfDHiwfcUvoriiB3H0UBXph2nmQ3WQRdDbt2/fvXv3t6Si8ubNm+fPnz969AgMXv7ageyTDmDzFTYRguSWZ9gm2LXCQMLz4osBD7bk5GKJGMTRAEYPfKQrZN65c8cIP3361CCBEvTp06e/J5XPnz9/+PCBEakeA8sDa8cc2TOdyl79vNhILJPoqc7CrhUGEp4XXwx4sOEM5KKIxSiu6DRQAkxVFPLx7t27jx8/5vn69ev3799z8F0ZviV9Y6Lgr0nmGXAdsnZsho48by/OHIMUPmc81VnYtcJAwvPiiwEPNpyBXBSxRNQkOg2UhDX3vTLrIq7MUHPWJ87h21jh//HjR026JX91yK7jHAsT6o3U4RO+GDzVWcJUwkDC8+KLAQ+2OLMoYokYEiYoo+e/yhJ0zBI3zxJ3bSbufpa4Z0DinpuJ+66RuO9niftOm7jfAYn77ZS435uJ+42euPcaiXsXlLj3Z4l755i497SJe7eduL8HJO5vKIn7u1Pi/laXuL9vht9c3Si5Eg8/u/qadUPug9vNr9tyN9N16tRxw+NaP/zy6uLO7bAf4VyYuVp3m5c9e3bXeq5nPdVZ2LXCQMKHX14x4MGGEzN+UcQSMfz4SgMl4ffX/wAHzDpo1xd0iQAAAABJRU5ErkJggg== M

M M : v M 25 row transpose : u M 25 col : 31 sys

v x el u x el 2 1 sys

data t 010 0.5 range : i 0 t length 1 - range y 1 i 1 + el t i 1 + el sqrt : for y 31 line :

v data 1 row transpose :

v x 1 + el 0.5 sqrt x sqrt * 2 1 sys <p> Stem Construction Utility </p>

Core component of the stem style P v replicate k 1 : i 1 v length range P i el 1 ≡ continue j 1 P i el range T k j + el v i el : for k k P i el + : 21 line if for T 31 line :

Stem construction vy stem N vy length : i 1 N range q i el 3 : q N el 2 : 21 line for 11 line i 1 N range v i el i : for i 1 N range S 3 i * el vy i el : for u q v replicate : V u S augment : V V 3 V rows 12 submatrix : 71 line :

Generate the random N rnd Uniform ± 1 idx 1 N range : R N Random 0.5 - : idx 2 R * augment 41 line :

Collect the project N 100 : U N rnd : vy U 2 col : Random vy stem : 41 line

vy x el 0 2 1 sys 0 Random U 1 col U 2 col augment 3 1 sys